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.* . 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
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'e4 
' 
FACILITY: F11ACP Structure Level 1 
ABSTRACT: 
: This routine performs the window turn necessary to map a 
; virtual 1/0 transfer which is not mapped by the current 
' window. It also receives virtual 1/0 orrers for bad block 
processing. 
4 ENVIRONMENT : 
Ope i STARLET operating system, including privileged system services 
bee } and internal exec routines. 
bc? leo 
ae 
050 AUTHOR: Andrew C. Goldstein, CREATION DATE: 7=Jan-1977 00:48 
O¢ ; MODIFIED BY: 
054 ! v03-006 CDS0005 Christian D. Saether 22-Mar-1984 
086 Add support for WRITE_TURN trapping. 
3§ ! v03-005 CDS0004 Christian D. Saether 26-F eb-1984 


Sep-19 :07:5 VAX-11 Bliss-32 V4.0-742 Page 2 
Vv046 16- sen-1984 939032 DISK KSVMSMASTER:CF11X.SRCIRWVB.B32;1 . (1) 
; : } Call UNLOCK_XQP before requeuveing the packet. 
: 1: v03-004 cs0003 Christian D. Saether 30-Dec-1983 
; ! } Use L_NORM Linkage ond BIND_COMMON macro. 
; 1 | v03-003 cps0002 Christian D. Saether 14-Sep-1983 
: ! } Modify SERIAL_FILE interface. 
: 1 i v03-002 cDS0001 Christian D. Saether 5-May-1983 
; ] } Add SERIAL _FILE cali to synchronize xQp operations. 
; 1 v03-001 ACG0320 Andrew C. Goldstein, 22-Mar-1983 12:44 
: ! Change byte count handling to track changes in IOPOST 
: 1 i v02-002 AcGo192 Andrew C. Goldstein, 18-Feb-1981 20:44 
: : Fix attempt at bad block handling on write locked disk 
; 1 v02=001 ACGO167 Andrew C. Goldstein Is apr -1980 19:27 
3 Bors 1! Previous revision history moved to f11B 
3 77 77 «1 fee 
:; 7 0078 #1 
3 79 0079 1 
; 80 0080 1 LIBRARY ‘SYSS$LIBRARY:L1IB.L32'; 
5 81 0081 1 REQUIRE ‘SRCS$:FCPDEF B32’; 
; 8 1378 1 
EE = 1073 1 
3 84 1074 1 FORWARD ROUTINE 
; «685 1075 (1 READ _WRITEVB : L NORM, ! main read/write virtual handling 
; 686 1076 1 MARKBAD_F CB; ' mark bad block in FCB 
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GLOBAL ROUTINE READ_WRITEVB =: L_NORM = 
lee 


FUNCTIONAL DESCRIPTION: 


OOo ~~ 
Wr—OOon 


: REF BBLOCK, file FCB 


FCB 
BLOCK_COUNT, number of blocks in transfer 
UNMA 


; 88 1 1 

$ 4 1 1 

‘ 1 1 

, Wi 1 1! 

3 38 1 1! 

= 1 1! 

: 94 1 7 1! This routine performs the window turn necessary to map a 
; 1 1! virtual 1/0 transfer which is not mapped by the current 
3 38 1085 1! window. It also receives virtual 1/0 errors for bad block 
3 44 1989 : } processing. These are presently simply returned to the user. 
; WW 1308 1 ! CALLING SEQUENCE: 

; 100 1089 1! READ_WRITEVB () 

: 101 1090 1! 

: 136 1993 1 ! INPUT PARAMETERS: 

; 10 1 a5 1! NONE 

; 104 1095 1! 

s 105 1094 1 ! IMPLICIT INPUTS: 

; 198 1096 ! IO_PACKET: 1/0 packet of request 

; 108 1097 1 ! OUTPUT PARAMETERS: 

; 109 1098 1! NONE 

; 110 1099 1! 

.. 1100 1 ! IMPLICIT OUTPUTS: 

3 Mg 1101 1! NONE 

; 11 1102 1! 

>: 1146 1103 1 ! ROUTINE VALUE: 

3; 6115 1106 1! 1 if request requeved to driver 

: 116 1105 1! 0 if error 

3s 6117 1106 1! 

; #118 1107 1 ! SIDE EFFECTS: 

3 v9 1108 1! window turned : 

3 159 1109 1! request requeved to driver if mapped 

3: 121 111 1! 

3 \$¢ 111 1 !-- 

a. Ge 111 1 

: 126 111 BEGIN 

3 1$2 111 

: 126 111 LOCAL 

3 ter 111 PACKET : REF BBLOCK, pointer to 1/0 packet 
3 18 iy} WINDOW : REF BBLOCK, file window 
. 4 111 

a 11 

we 11 

es 11 

, 4 11 

oe 11 

oe 11 

2. S 11 

. | 11 

s 1 11 

Ss 11 

oe 11 

7 11 

2 11 

2: ¥ 11 


WO OONOA UE WD 0 OOBNOU EWN OC OONOUE WN —OOW 


9 

3) PPED, number of blocks not mapped 

¢ P mode (read/write) of transfer 
tz VBN, starting VBN of transfer 

LBN translated LEN 

35 LAST_LBN; highest LBN touched by operation 
i BIND_ COMMON; 

39 EXTERNAL ROUTINE 
40 LOCK_xaP : LNORM, ' unlock xqp and release cache 
41 SERIAL_FILE : LINORM, ! serialize file operations 

4g ALLOCATION_LOCK : L_NORM, ' get volume allocation lock 

4 MAP_VBN : L_NORM, ! map and turn window 

44 REQDEUVE_REQ L=NORM, ' requeue request to driver 
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SCAN_BADLOG : L NORM; ! scan bad block log file 
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Extract the request parameters from the 1/0 packet. Compute VBN and LBN 
° 


! 
} f the next block to be transferred. 


PACKET = .10_PACKET; 
WINDOW = .PACKETCIRPSL_WINDJ; 

BLOCK_COUNT = (.PACKETCIRPS$W_BCNTJ+511) / 512; 
VBN =~.PACKETCIRPS$L_SEGVBNJ; 

IF .VBN EQL 0 THEN ERR_EXIT (SS$_BADPARAM); 
FCB = .WINDOWCWCBSL_FCBI; 


Serialize further processing on this file. 


WO DONOAUE WN "OO@OnOu 


PRIM_LCKINDX = SERIAL_FILE (FCB CFCBSW_FIDI); 

! Attempt to map the request. If the map fails, report 
failure. Else requeuve the request to the driver. 

BN = MAP_VBN (.VBN, .WINDOW, .BLOCK_COUNT, UNMAPPED); 
-LBN EGL -1 THEN ERR_EXIT (SS$_ENDOFFILE); 
PACKETCIRPSV_VIRTUALJ 

BEGIN 

LAST_LBN = .LBN + (.BLOCK_COUNT = .UNMAPPED - 1); 
If .CBN GEQU .CURRENT UcetUCEst MAXBLOCK) 

OR .LAST_LBN GEQU .CURRENT UCBCOCBS$L_MAXBLOCK) 
THEN ERR_EXIT (SS$_ILLBLKNOM) ; 

IF .WINDOW CWCBSV_WRITE_TURN] 

THEN 


IF .FCB CFCBSB_FID_NMX) NEQ 0 
menor “FC CFCBSWFID_NUM] GTRU 2 


L 
IF 
If . 
THEN 


SVAN ARS SSS SFIS FSAI FEE 
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This is not the index file or bitmap file, so we assume it 
is a prrectaty bam ag bump the data sequence number. The 
unlock_xqp will store the updated value block. 


ev set OWDATASE C.PRIM_LCKINDX] = .LB_DATASEQ C.PRIM_LCKINDX] + 1 


IF .FCB CFCBSW_FID_NUM] EQL 1 
THEN 
This is the index file. Determine if the VBN being written is within 


the index file bitmap or in the header area, and increment the appropriate 
sequence number to invalidate cached buffers. 
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LOCAL 
HDRBASE ; 


HDRBASE = .CURRENT_VCB wees 


iW 
+ ,CURRENT_VCB C[vCBS$B_ 


Loop for all blocks being written. 


INCR I FROM 0 TO (.BLOCK_COUNT = 1) 
BEGIN 
LOCAL 
FID : BBLOCK (6); 
UNLOCK_XQP (); 


FID = .VBN + .I; 


; 113) 4 

; 11 ¢ 

; 113 

; 1194 

5 1195 

3 1138 

; 119 

$ 1138 

: 119 

; 1200 

3 : 4 

3 1 8g 5 

3 1204 6 

: 1205 6 

; 1206 6 

; 1207 6 

3 1208 6 

; 1209 6 

3 1210 6 

3 $$ 1211 6 

; § ’ \§ ? ci LEQU .HDRBASE 

$ 33 1214 6 

3 § 1$\2 ? This is not within the header area. Assume it is the index file bitmap. 
: 22 1549 6 

3 ¢ 1218 7 BEGIN 

3; 2 1539 7 ALLOCATION_LOCK (); 

: 33 1220 f (LB_DATASE® (0J)<16,16> = .(LB_DATASEQ [0])<16,16> + 1; 
$ $3 1$s¢ ? ELSE 

5 $3 1384 6 ! This is within the header area. Calculate the file number and bump 
3 36 1225 6 ! it’s sequence number. Note that extension headers are locked under 
; 237 1 $ 6 ! the primary header'’s file number, and hence this does not directly 

: 8 1 6 | invalidate them. However, we will assume that whatever is out there 
: 9 1228 6 | mucking with headers in the first place will know enough to rewrite 
; 240 1 $3 6 ! the primary header when screwing with extension headers and get them 
3 ob 1530 ? } n that fashion. 

3 43 1S36 8 

; 244 1 BEGIN 

: 245 1 $0 7 LOC 

: 28 : 2 4 LCKINOX; 

; 248 1939 7 FID = .FID - .HORBASE; 

> 269 1238 7 FID FF IDSB_NMX = .F10<16,8>; 

: 250 1239 7 FID CFID$SB-RVNJ = .CURRENT_RVN; 

3 51 1240 7 LCKINDX = Feria a (FIDY; 

3 26 ! 1] 7 LB NDRSEG eLCKINDX] = .LB_HDRSEQ C.LCKINDX] + 1; 
3 54 1 rk : END; ! of loop phrough all blocks 

s 255 1244 END ' of this is file number 1 

3 2$ ’ rh 2 ELSE 

; 258 1549 4 ! This is for file number 2, which is the storage bitmap. Invalidate 
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Z } entries cached for it. 

61 ‘ 

6 BEGIN 

6 ALLOCATION Lore (); 

re {LS DATASEG 1)<0,16> = .(LB_DATASEQ [0])<0,16> + 1; 

o8 END; : ! of either file 1 or 2. 

68 UNLOCK_XQP (); 

9 KERNEL_CALL (REQUEUE_REQ, .PACKET, .LBN, .UNMAPPED); 

0 RETURN 1; 

f} D 

ig ! If the virtual bit is not set, this is an 1/0 error on a file sent here 

74 ' for bad block process tne. If the error is a parity, format, or datacheck 

75 ! error, we set the bad block bit in the FCB of the file and enter the 

76 : block in question into the volume's bad block log. Note that we do not 

77 ! do this on errors on the volume's reserved files, which are not subject 
$f6 to dynamic bad block processing. 
280 ; 

81 ELSE 

& BEGIN 

8 et aS e = .PACKETCIRP$L_I0ST1); ! get status to return to user 
353 USER-STATUSC1] = .PACKETCIRPS$L_10ST2]; 

86 

4 NOT -BBLOCK CCURRENT_UCBCUCBSL_DEVCHAR], DEVS$V_SWL] 


oo 
0 


OR .(PACKETCIRP$L_10ST1])<0,16> EQL SS$ DATACHECK 


(PACRETEIRPSU~T0s11} <0: 16> EQL SS$_PARITY 
OR - (PACKETCIRP$L_10ST1])<0,16> EQL SS$_FORMAT 


AND ( 
-FCBCFCBSW_FID NUM] GTRU .CURRENT_VCBCVCBSB_RESFILES] 
OR (. CURRENT VUBCVCB$V_EXTFIDJ 
AND .FCBCFCBSB_FID-NMX] NEQ 0) 


SREASLS 


MIMO PoPoNofonofonony 


oo 
coo~n 


THEN 
BEGIN 
KERNEL_CALL (MARKBAD_FCB, .FCB); 
MODE = enter ~% ° ' assume read 
IF .PACKETCIRPSV FCODE] EQL 10$_WRITEPBLK 
THEN MODE = ENTER WRITERR; 
SCAN_BADLOG (FCBCFCBSW_FIO), .VBN, .LBN, .MODE, 0); 


E 
RETURN 0; 
END; 
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! end of routine READ_WRITEVB 


RWVB 
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aes i 2 Ad et ES et i a 
-EXTRN ALLOCATION LOCK 


AL 
-EXTRN MAP_VBN, REQUEUE_REQ 
“EXTRN SCAR_BADLOG 


-PSECT S$CODES,NOWRT,2 


O3F¢ 000 .ENTRY READ_WRITEVB, Save R2,R3,R4,R5,R6,R7,RB,R9 =; 1077 
5E § 000 SUBL2 #12, SP : 
5 80 AA 9E 0000 MOVAB -128(BASE), R9 + 1126 
57 00A8 ~=OCA OD 9009 MOVAB 168(BASE), R7 : 
4 90 AA DO 000 MOVL § -112(BASES, PACKET + 1141 
6 18 AG 01 MOVL g4 (PACKET) , WINDOW : 1148 
32 as «63C 0001 MOVZWL 5O(PACKET). R : 1146 
50 O1FF 60 5 OO1A MOV 511(RO), RO : 
52 20 00000209 F C? OOOTF DIVL3 #512, RO, BLOCK_COUNT : 
5 48 AG 09 00027 MOVL §$72(PACKET), VBN + 1144 
03 12 00028 BNEQ  ='1$ : 1146 
14 BF 0002D CHMU =s-s« #20 : 
04 0002F RET : 
53 18 A6 DO 00030 1$ MOVL 24 (WINDOW), FCB > 1148 
24 A3d 9F 000 PUSHAB 36(FCB) : 1153 
00006 CF 1 FB 00037 CALLS #1, SERIAL_FILE ; 
18 0 pO 0003C¢ OVL RO, 24(BASE) : 
4004 8F BB 00040 PUSHR #*M<R2,SP> + 1159 
56 DD 00044 PUSHL WINDOW : 
58 DD 00046 PUSHL BN ; 
00006 CF 04 FB 0004 CALLS #4, MAP_VBN : 
55 50 D0 0004D MOVL RO. LBN ; 
FFFFFFFF © 8F 33 Di 90050 CMPL LBN, #1 + 1160 
0870 8 BF 00039 CHAU #2160 ; 
03 2A AG 04 £0 90056 2s: BBS #4, 42(PACKET), 3$ + 1162 
of C3 00066 3$: SUBL3 NMAPPED . LOCK COUNT , RO > 1165 
i 0006A MOVAB RO) {18 LAST_ : 
DO 00065 MOVL  -108(B ASED “RO > 1166 
D1 00073 CMPL _—sLBN, PetR 6) : 
1E 00078 BGEQU ; 
D1 OOO7A CMPL LAST_LBN, 176(R > 1167 
1F 0007F BLSSU F 
Bf 00081 4$: CHMU #220 * 1168 
+ pop8e 5S SSC, 21CWINDOW). 128 : 1170 
53 int TSTB 0s« 4 1 (FCB) : : 1172 
12 OO8E BNEQ § ; 
B1 000 CMP 6(FCB), #2 : 1173 
18 094 BLEQU 7$ ; 
D 9 96 6$: MOVL  24(BASE), RO + 1181 
D6 OO09A INCL (R7) CROJ F 
11 00090 BRB 12$ ; 
81 OO9F 7$: CMPW 6-36 (FCB), #1 > 1184 
: OOA3 BNEQ 11$ : 
OOA MOVL  -104(BASE), RO : 1196 
C 000A9 MOVZWL OCR ), RI ; 
A 000AD MOVZBL 56(RO), RO : 1197 
DE 00081 MOVAL (RO)CRIJ, HDRBASE ; 
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; Routine Size: 
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Sad 
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: UNLOCK_xaP 
VBN, FID 
Fid, HORBASE 


9 
2 ALLOCATION_LOCK 
2(R7) 


10$ 

HDRBASE, FID 
F1De2. FID+S 

=96 (BASE), FID+4 


#1 SERIAL FILE 
148 (BASE) CCKINDX] 
R2, I, 6$ 


_— 


#0 ALLOCATION_LOCK 
#0, UNLOCK_xaP 
UNMAPPED 


#“M<R4,R5S> 
#3, — 


’ 


(PACKET), (R9) 
O8(BASE), RO 


PACKET). #500 
PACKET), #92 
PACKET), #188 
BASE), RO 


( 
wes 17$ 


: MARKBAD_FCB 
#0. #6, 32(PACKET), #11 


rrr 
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FCB, Save nothing 


FCB, RO 
34 (RO) 
#1, RO 


ENTRY MARKBAD 
#6, 


! end of routine MARKBAD_FCB 
RET 


! FCB argument 


0000 00000 
0002 


: REF BBLOCK; 


This routine set the bad block bit in the indicated FCB. 
MARKBAD_FCB (ARG1) 

address of FCB 
bad bit set in FCB 


INPUT PARAMETERS: 
NONE 
ROUTINE VALUE: 


NONE 


ARG1: 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 


FUNCTIONAL DESCRIPTION: 
FCB 


CALLING SEQUENCE: 


GLOBAL ROUTINE MARKBAD_FCB (FCB) = 
SIDE EFFECTS: 


FCBCFCBSV_BADBLK] = 1; 
RETURN 1; 
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Routine Base: 


14 bytes, 


3; Routine Size: 


RwVB 16-Sep-1984 01:07:5 VAX-11 Bliss-32 V4 
v04-000 10-Sep-1984 93:95:28 DISKSVMSMASTER:CF1 
3 1342 #1 

3 335 1348 

3 6 1344 0 ELUDOM 

. PSECT SUMMARY 

Z Name Bytes Attributes 

: SCODES 385 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 

Bs a seats. AE <a aa Se en Symbols coese=—= Pages Processing 

; File Total Loaded Percent Mapped Time 

: -$255$DUA28: CSYSLIBILIB.L32;1 18619 43 0 1000 00:02.0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:RWVB/OBJ=OBJ$:RWVB MSRC$:RWVB/UPDATE=(ENH$:RWVB) 
Size: 385 goge 5 0 data bytes 
Run Ti Bo:¢ 
Elapsed Time: the é 
ne n: 
ponenne sh Py-mies 44 7 


ae Used: 269 pages 
Compi ation. Complete 


xo 


or 4 
- SRCIRWVB.B32;1 


AH-BT1i3A-SE 


| DIGITAL EQUIPMENT CORPORAT 
VAX/VMS V4.0 TA 
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‘UE 


